program openmp

    use omp_lib, only: omp_get_thread_num
    implicit none
    integer :: i

    !$omp parallel do private(i) schedule(static, 1) if(.true.)
    do i = 1, 4
        print *, "Hello World from thread", omp_get_thread_num()
    end do

end program openmp
!> Hello World from thread           3
!> Hello World from thread           1
!> Hello World from thread           0
!> Hello World from thread           2